home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).adf / Stoppuhr / Stoppuhr (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  1KB  |  59 lines
  1. '********************************
  2. '*                              *
  3. '*           Stoppuhr           *
  4. '*                              *
  5. '*     Norbert Ellert 4/88      *
  6. '*                              *
  7. '********************************
  8.  
  9. WINDOW CLOSE 1
  10. WINDOW 2,"  Q = Ende    ",(0,0)-(160,85),22
  11. GOSUB zifferblatt
  12. WHILE 1
  13.   GOSUB uhr
  14. WEND
  15. aus:
  16.   WINDOW CLOSE 2
  17.   SYSTEM
  18.   END
  19.  
  20. zifferblatt:
  21.   LINE (10,5)-(150,80),3,bf
  22.   LINE (20,10)-(140,75),2,bf
  23.   LINE (11,5)-(151,80),1,b
  24.   LINE (20,10)-(140,75),1,b
  25.   LINE (20,25)-(140,28),1,bf
  26.   LINE (19,26)-(141,27),3,bf
  27.   LINE (20,58)-(140,61),1,bf
  28.   LINE (19,59)-(141,60),3,bf
  29.   COLOR 0,2
  30.   LOCATE 3,5  : PRINT "- STOPPUHR -"
  31.   COLOR 3,2
  32.   LOCATE 5,10 : PRINT "MINUTEN"
  33.   LOCATE 7,9  : PRINT "SEKUNDEN"
  34.   COLOR 1,2
  35. RETURN  
  36.  
  37. uhr:  
  38.   LOCATE 9,5  : PRINT "Start = Taste"   
  39.   a$=""  
  40.   WHILE a$=""
  41.     a$=INKEY$
  42.     IF a$="q" OR a$="Q" THEN aus
  43.   WEND
  44.   startzeit = TIMER  
  45.   LOCATE 9,5 : PRINT "Stop = Taste "  
  46.   a$=""
  47.   WHILE a$=""
  48.     dauer = TIMER - startzeit
  49.     dauer=FIX(dauer)
  50.     min=FIX(dauer/60)
  51.     sec=dauer-60*min
  52.     LOCATE 5,4  : PRINT min;
  53.     LOCATE 7,4  : PRINT sec; 
  54.     a$=INKEY$
  55.     IF a$="q" OR a$="Q" THEN aus
  56.   WEND  
  57. RETURN
  58.  
  59.